-- card: 3055 from stack: in.0 (US) -- bmap block id: 3273 -- flags: 0000 -- background id: 2661 -- name: -- part 1 (field) -- low flags: 01 -- high flags: 0007 -- rect: left=69 top=68 right=252 bottom=434 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: -- part 5 (button) -- low flags: 00 -- high flags: A003 -- rect: left=174 top=281 right=311 bottom=343 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: FullResList ----- HyperTalk script ----- on mouseUp ask "Resource type(s) :" with "XFCN" if it ≠ empty then put "T=" & it into Type else put "T=ALL" into Type ask "Output mask :" with "TNI" if it ≠ empty then put "O=" & it into Output else put "O=TNI" into Output if last word of the version ≥ 2.0 then answer file "File to search in :" else ask "PathName of file to search in :" if it is empty then get FullResList(Type,Output) else get FullResList(Type,Output,"W=" & it) if first word of it is "Error" then beep answer it else put it into cd fld 3 ShowHide true end if end mouseUp -- part 18 (field) -- low flags: 81 -- high flags: 0004 -- rect: left=118 top=64 right=274 bottom=381 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- on mouseUp ShowHide false end mouseUp -- part 19 (field) -- low flags: 81 -- high flags: 0007 -- rect: left=151 top=87 right=248 bottom=353 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ----- HyperTalk script ----- on mouseUp ShowHide false end mouseUp -- part contents for card part 1 ----- text ----- FullResList 2.0 by Frédéric RINALDI IMPORTANT : ----------- In order to keep parameter coherency in version 2.0, previous param has changed to "W=". So you should add the "W=" prefix in your calls. DESCRIPTION ------------ FullResList allows to get a list of resources informations for any file, or even to test if a resource is present. SYNTAX -------- FullResList([][,][,] [,][,]) PARAMETERS ------------ All parameters are optional. allows to define one or more types of resources to list. Default is "T=ALL". defines the resource name to search. defines the resource id to search. defines the resource file to search in. can be a single name or whole pathname. If just a single name is supplied, the file is assumed to be in the same folder than the current stack. Aliases are also supported. Default is current stack. If "ALL" is used, all accessible resources will be returned (Current stack + stacks in use + Home + HyperCard + System). allows to define the output format of returned list resource entries. Order and components can be freely choosen using A (attributes), T (type), N (name), S (size), I (ID) and W (where). Default is "O=TNI". Attributes are returned as string that can contain any combination of : C (changed), R (pReload), P (Protected), L (Locked), U (pUrgeable) and S (Sustem heap). Using "!", "?" and "=" as first parameter will return an online help (resp. copyright, syntax and output). USING ----- The XFCN returns a return delimited list of entries formatted according to given output mask. Informations in each entry are comma delimited. Logical AND is computed with params "T=", "N=" and "I=". ERRORS ------- If an error occurs, FullResList can return : "Error : Out of memory" "Error : Empty parameter #x" "Error : Missing information following "X="" "Error : Out of memory" "Error : Bad resource ID" "Error : "X" not allowed in output mask" "Error : This file has no resource fork" "Error : Param #x must begin with T,N,I,O or W" "Error : Bad parameter format" "Error : Out of memory" "Error : No resources found" "Error : Bad resource type" "Error : Not a file" "Error : Alias file not supported" "Error : Volume not found" "Error : Bad Name" "Error : File not found" "Error : Folder not found" "Error : I/O Error" HISTORY -------- 2.0 : 04/27/92 • Added "N=" and "I=" params • Changed param to "W=" • Added "W" for output mask, allowing to know in which file each resource was found (useful with "T=ALL"). 1.3 : 12/25/91 • Fixed alias file bug under System 7.0.1 1.2 11/12/91 • Added ALL in file param 1.1 10/25/91 • Fixed minor bug due to openRFPerm 1.0 10/24/91 • First release -------------------------------------------------------------------- This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack. Any commercial use must be licensed and aknowledged by the author. © F. Rinaldi - 1989,1990,1991 AppleLink: RINALDI1 CalvaCom : FR10 Compuserve : 71170,2111 -- part contents for card part 19 ----- text ----- FullResList